home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP02.ZIP / ARCHIE / ARCHIE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-11-15  |  2KB  |  165 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Date     DATE001
  25.     Integer  INTEGER001
  26.     Integer  INTEGER002
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.  
  37. ;------------------------------------------------------------------------------
  38.  
  39.     Cls
  40.     INTEGER002 = 0
  41.     BOOLEAN003 = 0
  42.     BOOLEAN004 = 0
  43.     FOpen 1, PPEPath() + "ARCHIE.CFG", 0, 0
  44.     FGet 1, INTEGER001
  45.     FGet 1, STRING008
  46.     FGet 1, STRING009
  47.     FClose 1
  48.     PrintLn "@X0FARCHIE by Email - Version .20b"
  49.     PrintLn "Registered to: " + STRING008
  50.     PrintLn "Sysop: " + STRING009
  51.     PrintLn 
  52.     Wait
  53.     PrintLn 
  54.     PrintLn "@X0FPlease enter the following information for the filenames you wish to"
  55.     PrintLn "search for.@X07"
  56.     :LABEL001
  57.     If (BOOLEAN003) Goto LABEL002
  58.     Input "Enter the string to search for", STRING001
  59.     If (STRING001 == "") Then
  60.         PrintLn 
  61.         PrintLn "Please enter a search string!"
  62.         PrintLn 
  63.         INTEGER002 = INTEGER002 + 1
  64.         If (INTEGER002 >= 4) Then
  65.             PrintLn "too many trys - aborting!!!!"
  66.             BOOLEAN003 = 1
  67.             BOOLEAN004 = 1
  68.         Endif
  69.     Else
  70.         BOOLEAN003 = 1
  71.     Endif
  72.     Goto LABEL001
  73.     :LABEL002
  74.     STRING007 = "Y"
  75.     If (BOOLEAN004) Goto LABEL003
  76.     BOOLEAN005 = 1
  77.     PrintLn 
  78.     Print "Creating ARCHIE request...."
  79.     STRING006 = PPEPath() + "ATEMP" + String(PcbNode()) + ".TMP"
  80.     FCreate 1, STRING006, 1, 3
  81.     STRING002 = U_Name()
  82.     STRING004 = "archie@archie.rutgers.edu"
  83.     STRING003 = " "
  84.     STRING005 = "R"
  85.     BOOLEAN001 = 0
  86.     BOOLEAN002 = 1
  87.     DATE001 = Date() + 3
  88.     If (BOOLEAN005) Then
  89.         FPutLn 1, "set search sub"
  90.     Else
  91.         FPutLn 1, "set search exact"
  92.     Endif
  93.     FPutLn 1, "find ", STRING001
  94.     FPutLn 1, "quit"
  95.     FClose 1
  96.     PrintLn "Done!"
  97.     STRING007 = "Y"
  98.     InputYN "Do you want to send this request (Y/N)", STRING007, 15
  99.     If (STRING007 == "Y") Then
  100.         PrintLn 
  101.         PrintLn "Request sent!"
  102.         Message INTEGER001, STRING004, STRING002, STRING003, STRING005, DATE001, BOOLEAN001, BOOLEAN002, STRING006
  103.     Else
  104.         PrintLn 
  105.         PrintLn "Request Aborted!"
  106.     Endif
  107.     :LABEL003
  108.     PrintLn 
  109.     PrintLn "Returning back to BBS"
  110.     PrintLn 
  111.     End
  112.  
  113. ;------------------------------------------------------------------------------
  114. ;
  115. ; Usage report (before postprocessing)
  116. ;
  117. ; ■ Statements used :
  118. ;
  119. ;    1       End
  120. ;    1       Cls
  121. ;    1       Wait
  122. ;    10      Goto 
  123. ;    18      Let 
  124. ;    1       Print 
  125. ;    20      PrintLn 
  126. ;    6       If 
  127. ;    1       Input 
  128. ;    1       FCreate 
  129. ;    1       FOpen 
  130. ;    2       FClose 
  131. ;    3       FGet 
  132. ;    4       FPutLn 
  133. ;    1       InputYN 
  134. ;    1       Message 
  135. ;
  136. ;
  137. ; ■ Functions used :
  138. ;
  139. ;    8       +
  140. ;    2       ==
  141. ;    1       >=
  142. ;    6       !
  143. ;    1       Date()
  144. ;    1       U_Name()
  145. ;    1       String()
  146. ;    2       PPEPath()
  147. ;    1       PcbNode()
  148. ;
  149. ;------------------------------------------------------------------------------
  150. ;
  151. ; Analysis flags : No flag
  152. ;
  153. ;------------------------------------------------------------------------------
  154. ;
  155. ; Postprocessing report
  156. ;
  157. ;    0       For/Next
  158. ;    0       While/EndWhile
  159. ;    4       If/Then or If/Then/Else
  160. ;    0       Select Case
  161. ;
  162. ;------------------------------------------------------------------------------
  163. ;                 AEGiS Corp - Break the routines, code against the machines!
  164. ;------------------------------------------------------------------------------
  165.